unit uLogin;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, cxGraphics, cxControls, dxSkinsCore, dxSkinsdxBarPainter,
  dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinDarkRoom,
  dxSkinDarkSide, dxSkinFoggy, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
  dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
  dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
  dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinOffice2010Black,
  dxSkinOffice2010Blue, dxSkinOffice2010Silver, dxSkinPumpkin, dxSkinSeven,
  dxSkinSharp, dxSkinSilver, dxSkinSpringTime, dxSkinStardust, dxSkinSummer2008,
  dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue, cxImage,
  cxBlobEdit, dxBar, dxRibbon, cxBarEditItem, dxBarExtItems, cxLookAndFeels,
  cxLookAndFeelPainters, cxClasses, dxStatusBar, dxRibbonStatusBar, StdCtrls,
  ExtCtrls, dxSkinsForm;

type
  TfmLogin = class(TForm)
    bmManager: TdxBarManager;
    bamAppMenu: TdxBarApplicationMenu;
    tLogin: TdxRibbonTab;
    rRibbonLogin: TdxRibbon;
    gtMenu: TdxBar;
    gtLogin: TdxBar;
    dxBarButton1: TdxBarButton;
    beSenha: TdxBarEdit;
    beLogin: TdxBarEdit;
    beLogar: TdxBarLargeButton;
    beImg: TdxBarLargeButton;
    dxRibbonStatusBar1: TdxRibbonStatusBar;
    Button1: TButton;
    pnImg: TPanel;
    tIMG: TImage;
    dxSkinController1: TdxSkinController;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fmLogin: TfmLogin;

implementation

{$R *.dfm}

procedure TfmLogin.Button1Click(Sender: TObject);
begin

  tIMG.Picture.LoadFromFile('C:\Documents and Settings\User04\Desktop\Untitled-1.bmp');
  Application.ProcessMessages;

end;

end.
